-- card: 5916 from stack: in
-- bmap block id: 8646
-- flags: 4000
-- background id: 6557
-- name: 11
----- HyperTalk script -----
On OpenCard
  Put 11 Into Bkgnd field ID 26
end OpenCard

On ClearInfo
  Set hilite of Card button ID 27 of Card ID 5916 to false
  Set hilite of Card button ID 12 of Card ID 5916 to false
  Set hilite of Card button ID 13 of Card ID 5916 to false
  Set hilite of Card button ID 14 of Card ID 5916 to false
  Set hilite of Card button ID 15 of Card ID 5916 to false
  Put 0 into Card field ID 24 of Card ID 5916              -- line 37
  Set hilite of Card button ID 18 of Card ID 5916 to false
  Set hilite of Card button ID 19 of Card ID 5916 to false
  Put empty into Card field ID 25 of Card ID 5916          -- line 38
  Put 0 into Card field ID 26 of Card ID 5916              -- line 39
  Put 0 into Card field ID 2 of Card ID 5435
end ClearInfo


-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=6 top=59 right=74 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=72 right=115 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=240 right=256 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=181 right=196 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=124 right=140 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=305 top=141 right=157 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=196 top=141 right=157 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=286 top=124 right=139 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=118 top=141 right=157 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=109 top=123 right=139 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Enter
----- HyperTalk script -----
on mouseUp
  Global CardNumber,NoErrors
  Set cursor to 4
  Get hilite of Card button ID 13 of Card ID 5916
  Put it into Button13
  Get hilite of Card button ID 12 of Card ID 5916
  Put it into Button12
  If Button13 = False and Button12 = False then
    Send "Alto" to Card button ID 11 of Card ID 5916
    Exit MouseUp
  end if

  Get hilite of Card Button ID 1 of Card ID 2982
  Put it into Button1
  Get hilite of Card Button ID 2 of Card ID 2982
  Put it into Button2
  Get hilite of Card Button ID 3 of Card ID 2982
  Put it into Button3
  Get hilite of Card Button ID 4 of Card ID 2982
  Put it into Button4
  Get hilite of Card Button ID 5 of Card ID 2982
  Put it into Button5

  IF button1 is false and button2 is false and button3 is false and button4 is false and button5 is false then
    Get short number of this card
    Put it into CardNumber
    Answer "Please select a filing status."
    Go to Card ID 2982
    Put "Please select a Filing Status Box." into Card field ID 6 of Card ID 2982
    Exit MouseUP
  End if

  Get Card field ID 21 of Card ID 3260
  Put it into temp
  If temp = 0 then
    Send "ErrorCheck" to this stack
    If NoErrors is False then
      Answer "Please complete Cards 9,10,11 before going on."
      Go to Card ID 2598
      exit MouseUp
    end if
  End if

  IF temp < 25 then
    IF temp >= 15 then
      Put 2 into Card field ID 24 of Card ID 5916
    Else
      IF Temp >= 5 then
        Put 1 into Card field ID 24 of Card ID 5916
      else
        Put 0 into Card field ID 24 of Card ID 5916
      end if
    end if
  Else

    Put (Round(Temp)) into temp

    If (Temp >= 25) and (Temp < 3000) then
      Put (Trunc(Temp/25)) into Temp1
      Put (Temp1 * 25 + 13) into TotalIncome
    Else if (Temp >= 3000) then
      Put (Trunc(Temp/50)) into Temp1
      Put (Temp1 * 50 + 25) into TotalIncome
    end if

    If Button1 is True then -- Single
      Put 1799 into Tax1
      Put 16799 into Tax2
      Put 26999 into Tax3
      Put 53999 into Tax4
      Put 198 into A
      Put 2448 into B
      Put 5304 into C
      Put 14754 into D
    Else If Button2 is True then -- Married Joint
      Put 2999 into Tax1
      Put 27999 into Tax2
      Put 44999 into Tax3
      Put 89999 into Tax4
      Put 330 into A
      Put 4080 into B
      Put 8840 into C
      Put 24590 into D
    Else If Button3 is True then -- Married Seperate
      Put 1499 into Tax1
      Put 13999 into Tax2
      Put 22499 into Tax3
      Put 44999 into Tax4
      Put 165 into A
      Put 2040 into B
      Put 4420 into C
      Put 12295 into D
    Else If Button4 is True then -- Head of household
      Put 2499 into Tax1
      Put 22999 into Tax2
      Put 37999 into Tax3
      Put 79999 into Tax5
      Put 275 into A
      Put 3350 into B
      Put 7550 into C
      Put 22250 into D
    end if

    IF TotalIncome <= Tax1 then
      Put (TotalIncome * (11/100)) into Total
    end if

    IF (TotalIncome > Tax1) and (TotalIncome <= Tax2) then
      Put ((TotalIncome - (Tax1 + 1)) * (15/100) + A) into Total
    end if

    IF (TotalIncome > Tax2) and (TotalIncome <= Tax3) then
      Put ((TotalIncome - (Tax2 + 1)) * (28/100) + B) into Total
    end if


    IF (TotalIncome > Tax3) and (TotalIncome <= Tax4) then
      Put ((TotalIncome - (Tax3 + 1)) * (35/100) + C) into Total
    end if

    IF (TotalIncome > Tax4) then
      Put ((TotalIncome - (Tax4 + 1)) * (38.5/100) + D) into Total
    end if

    Put (Round(Total)) into Card field ID 24 of Card ID 5916
  end if
end mouseUp

On Alto
  Put hilite of Card button ID 14 of Card ID 5916 into Button14
  Put hilite of Card button ID 15 of Card ID 5916 into Button15
  IF button14 is true then
    Answer "Use Schedule D and enter total on line 37."
  else if button15 is true then
    Answer "Use Form 8615 and enter total on line 37."
  Else
    Answer "Please select a box in line 37."
  end if
end Alto












-- part 12 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=270 top=124 right=136 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  Set lockText of Card field ID 24 of card ID 5916 to true
  If hilite of Card button ID 12 is true then
    Set hilite of Card button ID 13 to false
    Set hilite of Card button ID 14 to false
    Set hilite of Card button ID 15 to false
    Send "MouseUp" to Card button ID 11 of Card ID 5916
  Else
    Put 0 into Card field ID 24 of Card ID 5916
  end if
end mouseUp





-- part 13 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=101 top=142 right=154 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  Set lockText of Card field ID 24 of card ID 5916 to true
  If hilite of Card button ID 13 is true then
    Set hilite of Card button ID 12 to false
    Set hilite of Card button ID 14 to false
    Set hilite of Card button ID 15 to false
    Send "MouseUp" to Card button ID 11 of Card ID 5916
  Else
    Put 0 into Card field ID 24 of Card ID 5916
  end if
end mouseUp





-- part 14 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=179 top=142 right=154 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  If hilite of Card button ID 14 is true then
    Set hilite of Card button ID 12 to false
    Set hilite of Card button ID 13 to false
    Set hilite of Card button ID 15 to false
    Answer "Use Schedule D and enter total on line 37."
    Set lockText of Card field ID 24 of card ID 5916 to false
  else
    Set lockText of Card field ID 24 of card ID 5916 to true
  end if
  Put 0 into Card field ID 24 of Card ID 5916
end mouseUp




-- part 15 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=286 top=142 right=154 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  If hilite of Card button ID 15 is true then
    Set hilite of Card button ID 12 to false
    Set hilite of Card button ID 13 to false
    Set hilite of Card button ID 14 to false
    Answer "Use Form 8615 and enter total on line 37."
    Set lockText of Card field ID 24 of card ID 5916 to false
  else
    Set lockText of Card field ID 24 of card ID 5916 to true
  end if
  Put 0 into Card field ID 24 of Card ID 5916
end mouseUp




-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=155 top=200 right=216 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=284 top=200 right=215 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 18 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=135 top=201 right=213 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  Set hilite of Card button ID 19 to false
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=266 top=201 right=213 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  Set hilite of Card button ID 18 to false
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=109 top=241 right=255 bottom=145
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add
----- HyperTalk script -----
on mouseUp
  Set cursor to 4
  Put 0 into Temp
  Put 0 into Temp1
  Put Card field ID 24 of Card ID 5916 into Temp -- Line 37
  Put Card field ID 25 of Card ID 5916 into Temp1 -- Line 38
  If Temp <= 0 then
    Send "MouseUp" to Card button ID 11 of card ID 5916
    Put Card field ID 24 of Card ID 5916 into Temp
  End if
  Put Temp + Temp1 into Card field ID 26 of Card ID 5916 -- Line 39
  put Temp + Temp1 into Card field ID 2 of Card ID 5435
end mouseUp



-- part 21 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=141 right=157 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 22 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=393 top=200 right=216 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=393 top=240 right=256 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 24 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=141 right=157 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
On MouseUp
  Send "MouseUp" to Card Button ID 11 of Card ID 5916
End MouseUp


-- part 25 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=418 top=200 right=216 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 26 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=240 right=256 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
On MouseUp
  Send "MouseUp" to Card Button ID 20 of Card ID 5916
End MouseUp


-- part 27 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=250 top=87 right=99 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part contents for background part 26
----- text -----
11

-- part contents for background part 20
----- text -----
Continue to next card

-- part contents for background part 13
----- text -----
Tax Compu - tation

-- part contents for card part 1
----- text -----
(Continued)

-- part contents for card part 2
----- text -----
CAUTION: If under age 14 and you have more than $1000  of investment income, check here             and see page 16 to see if you have to use Form 8515 to figure your tax.

-- part contents for card part 6
----- text -----
37.                  Tax.  Check if from 

-- part contents for card part 10
----- text -----
Tax table,

-- part contents for card part 9
----- text -----
Tax Rate Schedules,

-- part contents for card part 8
----- text -----
Schedule D, or

-- part contents for card part 7
----- text -----
Form 8615

-- part contents for card part 5
----- text -----
38.  Additional taxes (see page 16).  Check if from

-- part contents for card part 3
----- text -----
39.               lines 37 and 38.  Enter the total . . . . . . . . . . . . .


-- part contents for card part 16
----- text -----
Form 4970

-- part contents for card part 17
----- text -----
Form 4972

-- part contents for card part 21
----- text -----
37

-- part contents for card part 22
----- text -----
38

-- part contents for card part 23
----- text -----
39

-- part contents for card part 26
----- text -----
0

-- part contents for card part 24
----- text -----
0

-- part contents for background part 40
----- text -----
5:00 PM